{xpdidch{currentfont [1 0 0 -1 0 0] makefont
 xpfnam exch dup maxlength dict begin xpcf currentdict end definefont pop}
 {xppln{FontDirectory xpplnfnam known{/xpfnam xpplnfnam def}if}if}ifelse
 }ifelse}if xpfnam findfont

/xpdefont{
 /xptrapamt xdf /xpfnam xdf dup /xppln xdf{/xpplnfnam xdf}if
 dup /xpbit xdf{/xpbitfnam xdf}if /xpdidch xdf/xpuseangl xdf
 FontDirectory xpfnam known not
 {xpbit{FontDirectory xpbitfnam known}{F}ifelse{/xpfnam xpbitfnam def}